home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 5 / 64er_Magazin_Sonderheft_05_86-05_1986_Markt__Technik_de.d64 / zahlen raten (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  709b  |  38 lines
  1. 10 print"[147]"
  2. 20 print"******** zahlen raten *******"
  3. 30 print
  4. 40 :
  5. 50 rem+++++++ vorbereitung ++++++++++++
  6. 60 :
  7. 70 z=int(rnd(0)*100)+1
  8. 80 v=0
  9. 90 :
  10. 100 rem+++++++ raten +++++++++++++++++
  11. 110 :
  12. 120 print"ich habe mir eine zahl
  13. 130 [153]"zwischen 1 und 100 gemerkt.
  14. 140 print
  15. 150 input"welche zahl ist es ";r
  16. 160 v=v+1
  17. 170 :
  18. 180 rem+++++++ pruefen +++++++++++++++
  19. 190 :
  20. 200 if r>z then print r;:goto 230
  21. 210 if r<z then print r;:goto 240
  22. 220 if r=z then print r;:goto 250
  23. 230 print"ist zu gross":goto 140
  24. 240 print"ist zu klein":goto 140
  25. 250 print"ist richtig"
  26. 260 print"sie haben";v;"versuche ";
  27. 270 print"benoetigt
  28. 280 :
  29. 290 [143]+++++ wiederholung oder ende ++++
  30. 300 :
  31. 310 [153]:[153]:[153]
  32. 320 [153]"noch einmal (j/n) ?"
  33. 330 [161] a$: [139] a$[178]""[167] 330
  34. 340 [139] a$[178]"j"[167] 10
  35. 350 [139] a$[179][177]"n" [167] 320
  36. 360 [153]:[153]:[153]"auf wiedersehen
  37. 370 end
  38.